• Home
 · 
• String Manipulation
 · 
• Shrink long file name, like c:\program Files\...\...\yourfile.txt

Shrink long file name, like c:\program Files\...\...\yourfile.txt

Shrink long file name, like c:\program Files\...\...\yourfile.txt

Rate Shrink long file name, like c:\program Files\...\...\yourfile.txt

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim strTemp As String, strPart1 As String, strPart2 As String
Dim strFileOnly As String
Dim strSearchFor As String

    strSearchFor = "\" & String(3, ShrinkChar) & "\"
    strFileOnly = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
    
    Do While Len(FileName) > FileNameSizeLimit
        If InStr(1, FileName, strSearchFor) Then
            strPart1 = Left(FileName, InStr(1, FileName, strSearchFor) - 1)
            If Right(strPart1, 1) = ":" Then Exit Do
            strPart1 = Left(strPart1, InStrRev(strPart1, "\") - 1)
            strPart2 = Right(FileName, Len(FileName) - InStr(1, FileName, strSearchFor))
            FileName = strPart1 & strSearchFor & strPart2
        Else
            strPart1 = Left(FileName, Len(FileName) - Len(strFileOnly) - 1)
            strPart1 = Left(strPart1, InStrRev(strPart1, "\") - 1)
            FileName = strPart1 & strSearchFor & strFileOnly
        End If
        DoEvents
    Loop
    SrinkFileName = FileName
  
End Function